home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crack It!
/
Crack It!.iso
/
CONTENT
/
DISKEDIT
/
INTRORT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-09-09
|
845b
|
54 lines
{
***
INTRORT.PAS
(C)Copyright Gerard Paul Java 1996
This unit contains the desktop drawing routine and a routine to display
the introductory box.
***
}
unit IntroRt;
interface
type
FileNameType = string[8];
DescType = string[54];
procedure DrawDesktop;
procedure DrawIntroBox;
implementation
uses Crt,ScreenRt,SysRt,Instruc;
procedure DrawDesktop;
var
DesktopString: Str80;
Postn: byte;
begin
TextAttr := TextNormAttr;
ClrEol;
GotoXY(1,25);ClrEol;
TextAttr := $78;DesktopString := StringOf(#177,80); { Desktop. }
for Postn := 2 to 24 do
begin
GotoXY(1,Postn);Write(DesktopString);
end; { for }
end;
procedure DrawIntroBox;
begin
JustSeeBox;
TextAttr := BoxAttr;
DrawBox(13,9,68,15,DoubleLine);
Window(15,10,68,16);
end;
end.